﻿Public Class frm_Main
    Enum opcion
        alumnos
        profesores
        cursos
        cobros
        sistema
    End Enum
    Dim _accion As opcion

    Private Sub MantenimientoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MantenimientoToolStripMenuItem.Click
        Dim _alumno As New frm_ABM_Alumnos
        _alumno.ShowDialog()
    End Sub

    Private Sub GestiónToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GestiónToolStripMenuItem.Click
        Dim _cursos As New frm_ABM_Cursos
        _cursos.ShowDialog()
    End Sub

    Private Sub TiposDeCursosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TiposDeCursosToolStripMenuItem.Click
        Dim _tiposCursos As New frm_ABM_TipoCurso
        _tiposCursos.ShowDialog()
    End Sub

    Private Sub GestiónToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GestiónToolStripMenuItem1.Click
        Dim _profesor As New frm_ABM_Profesores
        _profesor.ShowDialog()
    End Sub

    Private Sub TitulosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TitulosToolStripMenuItem.Click
        Dim _titulos As New frm_ABM_Titulos
        _titulos.ShowDialog()
    End Sub

    Private Sub BancosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BancosToolStripMenuItem.Click
        Dim _bancos As New frm_ABM_Bancos
        _bancos.ShowDialog()
    End Sub

    Private Sub TarjetasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TarjetasToolStripMenuItem.Click
        Dim _tarjetas As New frm_ABM_Tarjetas
        _tarjetas.ShowDialog()
    End Sub

    Private Sub ExámenesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExámenesToolStripMenuItem.Click
        Dim _examenes As New frm_ABM_Examenes
        _examenes.ShowDialog()
    End Sub

    Private Sub InscripciónToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim _inscripcion As New frm_Inscripcion
        _inscripcion.ShowDialog()
    End Sub

    Private Sub ReciboToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim _recibo As New frm_Recibo
        _recibo.ShowDialog()
    End Sub

    Private Sub InscripciónToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InscripciónToolStripMenuItem1.Click
        Dim _inscripcion As New frm_Inscripcion
        _inscripcion.ShowDialog()
    End Sub

    Private Sub ReciboToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReciboToolStripMenuItem1.Click
        Dim _recibo As New frm_Recibo
        _recibo.ShowDialog()
    End Sub

    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub AlumnosInscriptosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlumnosInscriptosToolStripMenuItem.Click
        Dim _alumnosInscriptos As New frm_Listado_AlumnosInscriptos
        _alumnosInscriptos.ShowDialog()
    End Sub
<<<<<<< .mine

<<<<<<< .mine
    '///// metodos nuevos
    Private Sub ListadoDeNotasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListadoDeNotasToolStripMenuItem.Click
        Dim _notasPorExamen As New frm_Listado_Notas
        _notasPorExamen.ShowDialog()
=======
    Private Sub AlumnosMorososToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AlumnosMorososToolStripMenuItem.Click
        Dim _morosos As New frm_Listado_AlumnosMorosos
        _morosos.ShowDialog()
    End Sub

    Private Sub ProfesoresToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProfesoresToolStripMenuItem1.Click
        Dim _profe As New frm_Listado_Profesores
        _profe.ShowDialog()
    End Sub

    Private Sub CursosDisponiblesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CursosDisponiblesToolStripMenuItem.Click
        Dim _cursos As New frm_Listado_Cursos
        _cursos.ShowDialog()
    End Sub

    Private Sub activacionPaneles()
        Select Case _accion
            Case opcion.alumnos
                panelAlumnos.Visible = True
                panelCursos.Visible = False
                panelProfesores.Visible = False
            Case opcion.cursos
                panelAlumnos.Visible = False
                panelCursos.Visible = True
                panelProfesores.Visible = False
            Case opcion.profesores
                panelAlumnos.Visible = False
                panelCursos.Visible = False
                panelProfesores.Visible = True
        End Select
    End Sub

    Private Sub btnAlumnos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAlumnos.Click
        _accion = opcion.alumnos
        Me.activacionPaneles()
    End Sub

    Private Sub btnCursos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCursos.Click
        _accion = opcion.cursos
        Me.activacionPaneles()
    End Sub

    Private Sub btnProfesores_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProfesores.Click
        _accion = opcion.profesores
        Me.activacionPaneles()
    End Sub
=======

    Private Sub CursosDisponiblesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CursosDisponiblesToolStripMenuItem.Click
        Dim _cursosDisponibles As New frm_Listado_Cursos
        _cursosDisponibles.ShowDialog()
>>>>>>> .r13
    End Sub
>>>>>>> .r11
End Class
